home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / util / cdity / ShutAll.lha / ShutAll / Install_e next >
Text File  |  1996-10-27  |  4KB  |  250 lines
  1.  
  2.  
  3. ;================================= ENGLISH ==================================
  4.  
  5. (set #bad-kick "You must be using at least Kickstart 3.0 (V39) to install ShutAll")
  6.  
  7. (set #copy-main "Copying ShutAll...")
  8. (set #copy-samples "Copying Sound Samples...")
  9. (set #copy-prefs "Copying Preferences Program...")
  10. (set #copy-doc "Copying Documentation...")
  11. (set #copy-dock "Copying Dock icon...")
  12.  
  13. (set #drawer-main "Creating Drawer ShutAll...")
  14. (set #drawer-samples "Creating Drawer Samples...")
  15.  
  16.  
  17. (set #inst-doc "\n\nDo you want to install the the english AmigaGuide Documentation ?")
  18. (set #inst-samples "\n\nDo you want to install the Sound Sample drawer ?\n(Yes Yes Yes !!!)")
  19. (set #inst-dock "\n\nDo you want to install the Dock Icon for ToolManager ?\n(very usefull)")
  20.  
  21. (set #where-main "Where would you like to install the ShutAll drawer ?")
  22. (set #where-main-help
  23.     (cat
  24.         "This is the destination directory for the ShutAll main program\n. A drawer called ShutAll will be created here."
  25.     )
  26. )
  27. (set #where-doc "Where would you like to install the Documentation ?")
  28. (set #where-samples "Where would you like to install the Sound Samples ?\nA drawer called Samples will be created here.")
  29. (set #where-dock "Where would you like to install the Dock Icon for ToolManager ?")
  30. (set #where-prefs "\n\nDo you want to install the Preferences Program ?\n(very usefull)")
  31.  
  32.  
  33. (set #install-exit "Thank you for installing ShutAll ...")
  34. (set #install-start
  35.     (cat
  36.         "\n\n"
  37.         "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  38.         "Welcome to ShutAll installation utility !\n\n"
  39.         "Brought to you by Stéphane NICOLE\n\n"
  40.         "October 1996\n\n"
  41.         "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  42.         "Now you will enjoy switching off your Amiga !!!"
  43.     )
  44.  
  45. )
  46. (set doc-file "ShutAll_eng.guide")
  47.  
  48.  
  49. ;============================== PROGRAM-START================================
  50.  
  51. (set @default-dest "SYS:")
  52.  
  53. ; Check Kickstart (>= v3.0) Version.
  54.  
  55. (if (< (/ (getversion) 65536) 39)
  56.     (abort #bad-kick)
  57. )
  58.  
  59. (message #install-start)
  60.  
  61.  
  62. (welcome)
  63.  
  64. ;-------------------------------
  65. ; Ask for Main prog Installation
  66. ;-------------------------------
  67.  
  68. (set startup-files 0)
  69.  
  70. (set main-dest
  71.     (askdir
  72.     (help "")
  73.     (prompt    #where-main)
  74.     (default @default-dest)
  75.     )
  76. )
  77.  
  78. ;-------------------
  79. ; New default drawer
  80. ;-------------------
  81.  
  82. (set @default-dest
  83.   (tackon main-dest "ShutAll")
  84. )
  85.  
  86. ;----------------------------------
  87. ; Create Drawer & Copy Main Program
  88. ;----------------------------------
  89.  
  90. (complete 0)
  91.  
  92. (makedir @default-dest
  93.     (prompt #drawer-main)
  94.     (help "")
  95.     (infos)
  96. )
  97.  
  98.  
  99. (copyfiles
  100.     (prompt #copy-main)
  101.     (source "ShutAll")
  102.     (dest @default-dest)
  103.     (files)
  104.     (infos)
  105. )
  106.  
  107.  
  108. ;----------------------
  109. ; Copy Preferences Prog
  110. ;----------------------
  111.  
  112. (complete 10)
  113.  
  114. (set prefs-dest
  115.     (askdir
  116.     (help "")
  117.     (prompt    #where-prefs)
  118.     (default @default-dest)
  119.     )
  120. )
  121.  
  122. (copyfiles
  123.     (prompt #copy-pref)
  124.     (source "SA_Prefs")
  125.     (dest prefs-dest)
  126.     (files)
  127.     (infos)
  128. )
  129.  
  130. ;----------------------
  131. ; Ask for documentation
  132. ;----------------------
  133.  
  134. (complete 25)
  135.  
  136.  
  137. (set copy-doc
  138.     (askbool
  139.         (prompt #inst-doc)
  140.         (help "")
  141.     )
  142. )
  143.  
  144.  
  145. ;-------------------
  146. ; Copy documentation
  147. ;-------------------
  148.  
  149. (if copy-doc
  150.     (set doc-dest
  151.         (askdir
  152.         (help "")
  153.         (prompt    #where-doc)
  154.         (default @default-dest)
  155.         )
  156.     )
  157. )
  158.  
  159. (if copy-doc
  160.     (copyfiles
  161.         (prompt #copy-doc)
  162.         (source doc-file)
  163.         (dest doc-dest)
  164.         (files)
  165.         (infos)
  166.     )
  167. )
  168.  
  169. ;----------------------
  170. ; Ask for Dock Icon
  171. ;----------------------
  172.  
  173. (complete 50)
  174.  
  175.  
  176. (set copy-dock
  177.     (askbool
  178.         (prompt #inst-dock)
  179.         (help "")
  180.     )
  181. )
  182.  
  183. ;-------------------
  184. ; Copy DockIcon
  185. ;-------------------
  186.  
  187. (if copy-dock
  188.     (set dock-dest
  189.         (askdir
  190.         (help "")
  191.         (prompt    #where-dock)
  192.         (default @default-dest)
  193.         )
  194.     )
  195. )
  196.  
  197. (if copy-dock
  198.     (copyfiles
  199.         (prompt #copy-dock)
  200.         (source "ShutAll-Dock.info")
  201.         (dest dock-dest)
  202.         (files)
  203.         (infos)
  204.     )
  205. )
  206.  
  207.  
  208.  
  209.  
  210. ;----------------------
  211. ; Ask for samples
  212. ;----------------------
  213.  
  214. (complete 75)
  215.  
  216. (set copy-samples
  217.     (askbool
  218.         (prompt #inst-samples)
  219.         (help "")
  220.     )
  221. )
  222.  
  223.  
  224. ;-------------------
  225. ; Copy samples
  226. ;-------------------
  227.  
  228. (set @default-dest
  229.      (tackon @default-dest "Samples")
  230. )
  231.  
  232.  
  233. (if copy-samples
  234.     (copyfiles
  235.         (prompt #copy-samples)
  236.         (source "Samples/")
  237.         (dest @default-dest)
  238.         (confirm 2)
  239.         (all)
  240.         (help "")
  241.         (infos)
  242.     )
  243. )
  244.  
  245.  
  246. (complete 100)
  247.  
  248. (EXIT #install-exit)
  249.  
  250.